home *** CD-ROM | disk | FTP | other *** search
/ Colson Caster Selection Guide 3 / Colson Caster Selection Guide 3.0.iso / data1.cab / Program_Executable_Files / colsoncd.dxr / 00001Series_268.ls < prev    next >
Encoding:
Text File  |  2000-01-12  |  300 b   |  13 lines
  1. on mouseUp
  2.   put EMPTY into field "whexmodnum"
  3.   put "1" into field "bemodnum"
  4.   if field "whmodnum" = "5" then
  5.     put "3" into field "bemodnum"
  6.     put EMPTY into field "comodnum"
  7.     put EMPTY into field "whexmodnum"
  8.   end if
  9.   puppetSound("mainsnd")
  10.   puppetTransition(47, 1, 8)
  11.   VBSEARCH()
  12. end
  13.